home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / prtcs155.zip / LAUNCH.REX < prev    next >
OS/2 REXX Batch file  |  1994-01-14  |  929b  |  39 lines
  1. /**/
  2. v="$VER: Launch Rexx  Lauching detaching BBSs   Williamson 54.02"
  3. options results
  4. options failat 20
  5. signal on syntax
  6. signal on halt
  7. signal on ioerr
  8. signal on break_c
  9. signal on break_d
  10. if ~show("L", "rexxsupport.library") then
  11.     if ~addlib("rexxsupport.library", 0, -30, 0) then exit 20
  12.     parse upper arg baud line .
  13.     bbscommand='BBS:Falcon -b "'baud'" "RAM:config/falcon.cfg"' 
  14.     address COMMAND com
  15. exit RC
  16. break_c:
  17. break_d:
  18. PutLog('User abort',10,10)
  19. call cleanup
  20. exit 10
  21. novalue:
  22.         call template_oops "Novalue" sigl
  23. syntax:
  24.         call template_oops "Syntax(RC=" || RC || ")" sigl RC
  25. failure:
  26.         call template_oops "Failure(RC=" || RC || ")" sigl
  27. ioerr:
  28.         call template_oops "IOErr" sigl
  29. halt:
  30.         call template_oops "Halt" sigl
  31.  
  32. template_oops:
  33. parse arg what badline code
  34. if code ~= "" then say "ERR: Line "badline what errortext(code)
  35.     else say 'ERR: Line 'badline what
  36. exit(40)
  37. /**/
  38.  
  39.